/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / floating-toolbar.elc.z / floating-toolbar.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 35 3a 34 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:49 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 66 6c 6f 61 74 69 | 6e 67 2d 74 6f 6f 6c 62 |s/floati|ng-toolb|
|000000b0| 61 72 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |ar.el.;;|; emacs |
|000000c0| 76 65 72 73 69 6f 6e 20 | 32 30 2e 34 20 22 45 6d |version |20.4 "Em|
|000000d0| 65 72 61 6c 64 22 20 58 | 45 6d 61 63 73 20 20 4c |erald" X|Emacs  L|
|000000e0| 75 63 69 64 2e 0a 3b 3b | 3b 20 62 79 74 65 63 6f |ucid..;;|; byteco|
|000000f0| 6d 70 20 76 65 72 73 69 | 6f 6e 20 32 2e 32 35 20 |mp versi|on 2.25 |
|00000100| 58 45 6d 61 63 73 3b 20 | 32 32 2d 4d 61 72 2d 39 |XEmacs; |22-Mar-9|
|00000110| 36 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |6..;;; o|ptimizat|
|00000120| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000130| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000140| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000150| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000160| 73 20 31 39 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 19...(|if (and |
|00000170| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000180| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000190| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|000001a0| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|000001b0| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|000001c0| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001d0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 32 |emacs-ve|rsion "2|
|000001e0| 30 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |0"))).  |  (error|
|000001f0| 20 22 60 66 6c 6f 61 74 | 69 6e 67 2d 74 6f 6f 6c | "`float|ing-tool|
|00000200| 62 61 72 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |bar.el' |was comp|
|00000210| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000220| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000230| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000240| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000250| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000260| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000270| 20 22 c0 c1 21 88 c2 c3 | 21 87 22 20 5b 70 72 6f | "..!...|!." [pro|
|00000280| 76 69 64 65 20 66 6c 6f | 61 74 69 6e 67 2d 74 6f |vide flo|ating-to|
|00000290| 6f 6c 62 61 72 20 72 65 | 71 75 69 72 65 20 78 5d |olbar re|quire x]|
|000002a0| 20 32 29 0a 23 40 35 30 | 20 56 65 72 73 69 6f 6e | 2).#@50| Version|
|000002b0| 20 73 74 72 69 6e 67 20 | 66 6f 72 20 74 68 65 20 | string |for the |
|000002c0| 66 6c 6f 61 74 69 6e 67 | 2d 74 6f 6f 6c 62 61 72 |floating|-toolbar|
|000002d0| 20 70 61 63 6b 61 67 65 | 2e 1f 0a 28 64 65 66 76 | package|...(defv|
|000002e0| 61 72 20 66 6c 6f 61 74 | 69 6e 67 2d 74 6f 6f 6c |ar float|ing-tool|
|000002f0| 62 61 72 2d 76 65 72 73 | 69 6f 6e 20 22 31 2e 30 |bar-vers|ion "1.0|
|00000300| 32 22 20 28 23 24 20 2e | 20 36 38 31 29 29 0a 23 |2" (#$ .| 681)).#|
|00000310| 40 33 33 30 20 2a 4e 6f | 6e 2d 6e 69 6c 20 76 61 |@330 *No|n-nil va|
|00000320| 6c 75 65 20 6d 65 61 6e | 73 20 70 6c 61 79 20 61 |lue mean|s play a|
|00000330| 20 73 6f 75 6e 64 20 74 | 6f 20 68 65 72 61 6c 64 | sound t|o herald|
|00000340| 20 74 68 65 20 61 70 70 | 65 61 72 61 6e 63 65 0a | the app|earance.|
|00000350| 61 6e 64 20 64 69 73 61 | 70 70 65 61 72 61 6e 63 |and disa|ppearanc|
|00000360| 65 20 6f 66 20 74 68 65 | 20 66 6c 6f 61 74 69 6e |e of the| floatin|
|00000370| 67 20 74 6f 6f 6c 62 61 | 72 2e 0a 0a 60 66 6c 6f |g toolba|r...`flo|
|00000380| 61 74 69 6e 67 2d 74 6f | 6f 6c 62 61 72 2d 61 70 |ating-to|olbar-ap|
|00000390| 70 65 61 72 73 27 20 77 | 69 6c 6c 20 62 65 20 70 |pears' w|ill be p|
|000003a0| 6c 61 79 65 64 20 77 68 | 65 6e 20 74 68 65 20 74 |layed wh|en the t|
|000003b0| 6f 6f 6c 62 61 72 20 61 | 70 70 65 61 72 73 2e 0a |oolbar a|ppears..|
|000003c0| 60 66 6c 6f 61 74 69 6e | 67 2d 74 6f 6f 6c 62 61 |`floatin|g-toolba|
|000003d0| 72 2d 64 69 73 61 70 70 | 65 61 72 73 27 20 77 69 |r-disapp|ears' wi|
|000003e0| 6c 6c 20 62 65 20 70 6c | 61 79 65 64 20 77 68 65 |ll be pl|ayed whe|
|000003f0| 6e 20 74 68 65 20 74 6f | 6f 6c 62 61 72 20 64 69 |n the to|olbar di|
|00000400| 73 61 70 70 65 61 72 73 | 2e 0a 0a 53 65 65 20 74 |sappears|...See t|
|00000410| 68 65 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |he docum|entation|
|00000420| 20 66 6f 72 20 74 68 65 | 20 66 75 6e 63 74 69 6f | for the| functio|
|00000430| 6e 20 60 6c 6f 61 64 2d | 73 6f 75 6e 64 2d 66 69 |n `load-|sound-fi|
|00000440| 6c 65 27 20 74 6f 20 73 | 65 65 20 68 6f 77 0a 64 |le' to s|ee how.d|
|00000450| 65 66 69 6e 65 20 73 6f | 75 6e 64 73 2e 1f 0a 28 |efine so|unds...(|
|00000460| 64 65 66 76 61 72 20 66 | 6c 6f 61 74 69 6e 67 2d |defvar f|loating-|
|00000470| 74 6f 6f 6c 62 61 72 2d | 75 73 65 2d 73 6f 75 6e |toolbar-|use-soun|
|00000480| 64 20 6e 69 6c 20 28 23 | 24 20 2e 20 2d 37 38 39 |d nil (#|$ . -789|
|00000490| 29 29 0a 23 40 31 39 33 | 20 2a 54 6f 6f 6c 62 61 |)).#@193| *Toolba|
|000004a0| 72 20 69 6e 73 74 61 6e | 74 69 61 74 6f 72 20 75 |r instan|tiator u|
|000004b0| 73 65 64 20 69 66 20 6d | 6f 75 73 65 20 65 76 65 |sed if m|ouse eve|
|000004c0| 6e 74 20 69 73 20 6e 6f | 74 20 6f 76 65 72 20 61 |nt is no|t over a|
|000004d0| 6e 20 65 78 74 65 6e 74 | 0a 77 69 74 68 20 61 20 |n extent|.with a |
|000004e0| 6e 6f 6e 2d 6e 69 6c 20 | 27 66 6c 6f 61 74 69 6e |non-nil |'floatin|
|000004f0| 67 2d 74 6f 6f 6c 62 61 | 72 20 70 72 6f 70 65 72 |g-toolba|r proper|
|00000500| 74 79 2e 20 20 54 68 69 | 73 20 76 61 72 69 61 62 |ty.  Thi|s variab|
|00000510| 6c 65 20 63 61 6e 20 62 | 65 0a 6d 61 64 65 20 6c |le can b|e.made l|
|00000520| 6f 63 61 6c 20 74 6f 20 | 61 20 62 75 66 66 65 72 |ocal to |a buffer|
|00000530| 20 74 6f 20 68 61 76 65 | 20 62 75 66 66 65 72 20 | to have| buffer |
|00000540| 6c 6f 63 61 6c 20 66 6c | 6f 61 74 69 6e 67 20 74 |local fl|oating t|
|00000550| 6f 6f 6c 62 61 72 73 2e | 1f 0a 28 64 65 66 76 61 |oolbars.|..(defva|
|00000560| 72 20 66 6c 6f 61 74 69 | 6e 67 2d 74 6f 6f 6c 62 |r floati|ng-toolb|
|00000570| 61 72 20 6e 69 6c 20 28 | 23 24 20 2e 20 2d 31 31 |ar nil (|#$ . -11|
|00000580| 37 37 29 29 0a 23 40 32 | 31 34 20 2a 4e 6f 6e 2d |77)).#@2|14 *Non-|
|00000590| 6e 69 6c 20 76 61 6c 75 | 65 20 73 68 6f 75 6c 64 |nil valu|e should|
|000005a0| 20 62 65 20 61 20 66 6f | 6e 74 20 74 6f 20 62 65 | be a fo|nt to be|
|000005b0| 20 75 73 65 64 20 74 6f | 20 64 69 73 70 6c 61 79 | used to| display|
|000005c0| 20 74 6f 6f 6c 62 61 72 | 20 68 65 6c 70 0a 6d 65 | toolbar| help.me|
|000005d0| 73 73 61 67 65 73 2e 20 | 20 54 68 65 20 66 6c 6f |ssages. | The flo|
|000005e0| 61 74 69 6e 67 20 74 6f | 6f 6c 62 61 72 20 66 72 |ating to|olbar fr|
|000005f0| 61 6d 65 20 77 69 6c 6c | 20 68 61 76 65 20 61 20 |ame will| have a |
|00000600| 6d 69 6e 69 62 75 66 66 | 65 72 20 77 69 6e 64 6f |minibuff|er windo|
|00000610| 77 0a 73 6f 20 74 68 61 | 74 20 69 74 20 63 61 6e |w.so tha|t it can|
|00000620| 20 64 69 73 70 6c 61 79 | 20 61 6e 79 20 68 65 6c | display| any hel|
|00000630| 70 20 74 65 78 74 20 74 | 68 61 74 20 69 73 20 61 |p text t|hat is a|
|00000640| 74 74 61 63 68 65 64 20 | 74 6f 20 74 68 65 20 74 |ttached |to the t|
|00000650| 6f 6f 6c 62 61 72 0a 62 | 75 74 74 6f 6e 73 2e 1f |oolbar.b|uttons..|
|00000660| 0a 28 64 65 66 76 61 72 | 20 66 6c 6f 61 74 69 6e |.(defvar| floatin|
|00000670| 67 2d 74 6f 6f 6c 62 61 | 72 2d 68 65 6c 70 2d 66 |g-toolba|r-help-f|
|00000680| 6f 6e 74 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 31 |ont nil |(#$ . -1|
|00000690| 34 31 39 29 29 0a 23 40 | 36 39 20 2a 54 68 65 20 |419)).#@|69 *The |
|000006a0| 66 72 61 6d 65 20 6e 61 | 6d 65 20 66 6f 72 20 74 |frame na|me for t|
|000006b0| 68 65 20 66 72 61 6d 65 | 20 75 73 65 64 20 74 6f |he frame| used to|
|000006c0| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 66 6c 6f | display| the flo|
|000006d0| 61 74 69 6e 67 20 74 6f | 6f 6c 62 61 72 2e 1f 0a |ating to|olbar...|
|000006e0| 28 64 65 66 76 61 72 20 | 66 6c 6f 61 74 69 6e 67 |(defvar |floating|
|000006f0| 2d 74 6f 6f 6c 62 61 72 | 2d 66 72 61 6d 65 2d 6e |-toolbar|-frame-n|
|00000700| 61 6d 65 20 6e 69 6c 20 | 28 23 24 20 2e 20 2d 31 |ame nil |(#$ . -1|
|00000710| 36 39 31 29 29 0a 23 40 | 35 30 20 54 68 65 20 66 |691)).#@|50 The f|
|00000720| 6c 6f 61 74 69 6e 67 20 | 74 6f 6f 6c 62 61 72 20 |loating |toolbar |
|00000730| 69 73 20 64 69 73 70 6c | 61 79 65 64 20 69 6e 20 |is displ|ayed in |
|00000740| 74 68 69 73 20 66 72 61 | 6d 65 2e 1f 0a 28 64 65 |this fra|me...(de|
|00000750| 66 76 61 72 20 66 6c 6f | 61 74 69 6e 67 2d 74 6f |fvar flo|ating-to|
|00000760| 6f 6c 62 61 72 2d 66 72 | 61 6d 65 20 6e 69 6c 20 |olbar-fr|ame nil |
|00000770| 28 23 24 20 2e 20 31 38 | 31 39 29 29 0a 23 40 31 |(#$ . 18|19)).#@1|
|00000780| 38 35 20 4e 6f 6e 2d 6e | 69 6c 20 76 61 6c 75 65 |85 Non-n|il value|
|00000790| 20 6d 65 61 6e 73 20 74 | 68 65 20 74 6f 6f 6c 62 | means t|he toolb|
|000007a0| 61 72 20 66 72 61 6d 65 | 20 77 69 6c 6c 20 62 65 |ar frame| will be|
|000007b0| 20 76 69 73 69 62 6c 65 | 20 61 73 20 73 6f 6f 6e | visible| as soon|
|000007c0| 0a 61 73 20 74 68 65 20 | 58 20 73 65 72 76 65 72 |.as the |X server|
|000007d0| 20 67 65 74 73 20 61 72 | 6f 75 6e 64 20 74 6f 20 | gets ar|ound to |
|000007e0| 64 69 73 70 6c 61 79 69 | 6e 67 20 69 74 2e 20 20 |displayi|ng it.  |
|000007f0| 4e 69 6c 20 6d 65 61 6e | 73 20 69 74 0a 77 69 6c |Nil mean|s it.wil|
|00000800| 6c 20 62 65 20 69 6e 76 | 69 73 69 62 6c 65 20 61 |l be inv|isible a|
|00000810| 73 20 73 6f 6f 6e 20 61 | 73 20 74 68 65 20 58 20 |s soon a|s the X |
|00000820| 73 65 72 76 65 72 20 64 | 65 63 69 64 65 73 20 74 |server d|ecides t|
|00000830| 6f 20 68 69 64 65 20 69 | 74 2e 1f 0a 28 64 65 66 |o hide i|t...(def|
|00000840| 76 61 72 20 66 6c 6f 61 | 74 69 6e 67 2d 74 6f 6f |var floa|ting-too|
|00000850| 6c 62 61 72 2d 64 69 73 | 70 6c 61 79 2d 70 65 6e |lbar-dis|play-pen|
|00000860| 64 69 6e 67 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |ding nil| (#$ . 1|
|00000870| 39 32 33 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |923)).(d|efalias |
|00000880| 27 66 6c 6f 61 74 69 6e | 67 2d 74 6f 6f 6c 62 61 |'floatin|g-toolba|
|00000890| 72 2d 64 69 73 70 6c 61 | 79 65 64 20 23 5b 6e 69 |r-displa|yed #[ni|
|000008a0| 6c 20 22 c0 09 21 ad 83 | c2 09 21 87 22 20 5b 66 |l "..!..|..!." [f|
|000008b0| 72 61 6d 65 2d 6c 69 76 | 65 2d 70 20 66 6c 6f 61 |rame-liv|e-p floa|
|000008c0| 74 69 6e 67 2d 74 6f 6f | 6c 62 61 72 2d 66 72 61 |ting-too|lbar-fra|
|000008d0| 6d 65 20 66 72 61 6d 65 | 2d 76 69 73 69 62 6c 65 |me frame|-visible|
|000008e0| 2d 70 5d 20 32 5d 29 0a | 23 40 36 34 30 20 50 6f |-p] 2]).|#@640 Po|
|000008f0| 70 75 70 20 61 20 74 6f | 6f 6c 62 61 72 20 6e 65 |pup a to|olbar ne|
|00000900| 61 72 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |ar the c|urrent m|
|00000910| 6f 75 73 65 20 70 6f 73 | 69 74 69 6f 6e 2e 0a 54 |ouse pos|ition..T|
|00000920| 68 65 20 74 6f 6f 6c 62 | 61 72 20 69 6e 73 74 61 |he toolb|ar insta|
|00000930| 6e 74 69 61 74 6f 72 20 | 75 73 65 64 20 69 73 20 |ntiator |used is |
|00000940| 74 61 6b 65 6e 20 66 72 | 6f 6d 20 74 68 65 20 27 |taken fr|om the '|
|00000950| 66 6c 6f 61 74 69 6e 67 | 2d 74 6f 6f 6c 62 61 72 |floating|-toolbar|
|00000960| 0a 70 72 6f 70 65 72 74 | 79 20 6f 66 20 61 6e 79 |.propert|y of any|
|00000970| 20 65 78 74 65 6e 74 20 | 75 6e 64 65 72 20 74 68 | extent |under th|
|00000980| 65 20 6d 6f 75 73 65 2e | 20 20 49 66 20 6e 6f 20 |e mouse.|  If no |
|00000990| 73 75 63 68 20 6e 6f 6e | 2d 6e 69 6c 0a 70 72 6f |such non|-nil.pro|
|000009a0| 70 65 72 74 79 20 65 78 | 69 73 74 73 20 66 6f 72 |perty ex|ists for|
|000009b0| 20 61 6e 79 20 65 78 74 | 65 6e 74 20 75 6e 64 65 | any ext|ent unde|
|000009c0| 72 20 74 68 65 20 6d 6f | 75 73 65 2c 20 74 68 65 |r the mo|use, the|
|000009d0| 6e 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 74 |n the va|lue of t|
|000009e0| 68 65 0a 76 61 72 69 61 | 62 6c 65 20 60 66 6c 6f |he.varia|ble `flo|
|000009f0| 61 74 69 6e 67 2d 74 6f | 6f 6c 62 61 72 27 20 69 |ating-to|olbar' i|
|00000a00| 73 20 63 68 65 63 6b 65 | 64 2e 20 20 49 66 20 69 |s checke|d.  If i|
|00000a10| 74 73 20 76 61 6c 75 65 | 20 73 69 20 6e 69 6c 2c |ts value| si nil,|
|00000a20| 20 74 68 65 6e 0a 6e 6f | 20 74 6f 6f 6c 62 61 72 | then.no| toolbar|
|00000a30| 20 77 69 6c 6c 20 62 65 | 20 64 69 73 70 6c 61 79 | will be| display|
|00000a40| 65 64 2e 0a 0a 54 68 69 | 73 20 63 6f 6d 6d 61 6e |ed...Thi|s comman|
|00000a50| 64 20 73 68 6f 75 6c 64 | 20 62 65 20 62 6f 75 6e |d should| be boun|
|00000a60| 64 20 74 6f 20 61 20 62 | 75 74 74 6f 6e 20 70 72 |d to a b|utton pr|
|00000a70| 65 73 73 20 65 76 65 6e | 74 2e 0a 0a 57 68 65 6e |ess even|t...When|
|00000a80| 20 63 61 6c 6c 65 64 20 | 66 72 6f 6d 20 61 20 70 | called |from a p|
|00000a90| 72 6f 67 72 61 6d 2c 20 | 66 69 72 73 74 20 61 72 |rogram, |first ar|
|00000aa0| 67 20 45 56 45 4e 54 20 | 73 68 6f 75 6c 64 20 62 |g EVENT |should b|
|00000ab0| 65 20 74 68 65 20 62 75 | 74 74 6f 6e 0a 70 72 65 |e the bu|tton.pre|
|00000ac0| 73 73 20 65 76 65 6e 74 | 2e 20 20 4f 70 74 69 6f |ss event|.  Optio|
|00000ad0| 6e 61 6c 20 73 65 63 6f | 6e 64 20 61 72 67 20 45 |nal seco|nd arg E|
|00000ae0| 58 54 45 4e 54 2d 4c 4f | 43 41 4c 2d 4f 4e 4c 59 |XTENT-LO|CAL-ONLY|
|00000af0| 20 73 70 65 63 69 66 69 | 65 73 0a 74 68 61 74 20 | specifi|es.that |
|00000b00| 6f 6e 6c 79 20 65 78 74 | 65 6e 74 20 6c 6f 63 61 |only ext|ent loca|
|00000b10| 6c 20 74 6f 6f 6c 62 61 | 72 73 20 73 68 6f 75 6c |l toolba|rs shoul|
|00000b20| 64 20 62 65 20 75 73 65 | 64 3b 20 74 68 69 73 20 |d be use|d; this |
|00000b30| 6d 65 61 6e 73 20 74 68 | 65 0a 60 66 6c 6f 61 74 |means th|e.`float|
|00000b40| 69 6e 67 2d 74 6f 6f 6c | 62 61 72 27 20 76 61 72 |ing-tool|bar' var|
|00000b50| 69 61 62 6c 65 20 77 69 | 6c 6c 20 6e 6f 74 20 62 |iable wi|ll not b|
|00000b60| 65 20 63 6f 6e 73 75 6c | 74 65 64 2e 1f 0a 28 64 |e consul|ted...(d|
|00000b70| 65 66 61 6c 69 61 73 20 | 27 66 6c 6f 61 74 69 6e |efalias |'floatin|
|00000b80| 67 2d 74 6f 6f 6c 62 61 | 72 20 23 5b 28 65 76 65 |g-toolba|r #[(eve|
|00000b90| 6e 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 65 78 74 |nt &opti|onal ext|
|00000ba0| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6f 6e 6c 79 29 20 |ent-loca|l-only) |
|00000bb0| 22 c0 c1 21 ac 84 c2 c3 | 21 88 c4 0d 21 85 61 01 |"..!....|!...!.a.|
|00000bc0| c6 0d 21 1e 07 c8 0d 21 | 1e 09 ca 0d 21 1e 0b 0e |..!....!|....!...|
|00000bd0| 07 ad 83 cc 0d 21 1e 0d | ce 0d 21 89 1e 0f ad 89 |.....!..|..!.....|
|00000be0| d0 0e 0f d1 5c 22 ad 82 | 0e 0f 89 1e 0f ae 8b 0e |....\"..|........|
|00000bf0| 0d ad 87 d2 0e 0d 0e 07 | d1 23 89 1e 13 ab 86 0e |........|.#......|
|00000c00| 13 d1 4e ae 8b 0e 14 3f | ad 86 d5 d1 0e 07 d6 23 |..N....?|.......#|
|00000c10| 19 d6 1e 17 d6 1e 18 d9 | 1e 1a db 1e 1c d6 1e 1d |........|........|
|00000c20| 09 3a 85 5f 01 de 0e 0b | 21 1e 1f e0 0e 1f b7 41 |.:._....|!......A|
|00000c30| 1e 20 e1 0e 1f b7 41 1e | 21 e2 0e 23 21 ab 86 e2 |. ....A.|!..#!...|
|00000c40| 0e 24 21 aa 81 d9 1e 25 | e2 0e 26 21 ab 86 e2 0e |.$!....%|..&!....|
|00000c50| 27 21 aa 81 d9 1e 28 c0 | e9 21 ab 87 0e 2a ab 83 |'!....(.|.!...*..|
|00000c60| eb aa 81 d9 1e 2c 0e 21 | 0e 28 5c 5c ed 0d 21 5c |.....,.!|.(\\..!\|
|00000c70| 5c 16 17 0e 20 0e 25 5c | 5c 0e 2c 5c 5c ee 0d 21 |\... .%\|\.,\\..!|
|00000c80| 5c 5c 16 18 2e 06 0e 07 | ab 84 0e 07 71 88 ef 09 |\\......|....q...|
|00000c90| 0e 17 0e 18 23 88 0e 1d | ac fb f0 20 15 0e 1c ab |....#...|... ....|
|00000ca0| 8a f1 0d 21 ab 85 d6 16 | 1c aa 6b f1 0d 21 ab ae |...!....|..k..!..|
|00000cb0| f2 0d 21 ab a9 0e 33 ca | 0d 21 61 ab a1 f4 20 88 |..!...3.|.!a... .|
|00000cc0| 0e 09 ab 87 f5 f6 0e 09 | 21 21 88 0e 09 ab 85 f7 |........|!!......|
|00000cd0| 0e 09 21 88 f8 0d 21 88 | db 89 16 1d aa 3a f9 0d |..!...!.|.....:..|
|00000ce0| 21 ab 96 f2 0d 21 ab 91 | 0e 33 ca 0d 21 61 ab 89 |!....!..|.3..!a..|
|00000cf0| d6 16 1c f8 0d 21 88 aa | 1d ca 0d 21 ab 8e 0e 33 |.....!..|...!...3|
|00000d00| ca 0d 21 61 ac 86 0d 0e | 3a 42 16 3a f4 20 88 db |..!a....|:B.:. ..|
|00000d10| 89 16 1d ab 05 db 2e 0d | 87 22 20 5b 66 65 61 74 |........|." [feat|
|00000d20| 75 72 65 70 20 74 6f 6f | 6c 62 61 72 20 65 72 72 |urep too|lbar err|
|00000d30| 6f 72 20 22 46 6c 6f 61 | 74 69 6e 67 20 74 6f 6f |or "Floa|ting too|
|00000d40| 6c 62 61 72 20 72 65 71 | 75 69 72 65 73 20 62 75 |lbar req|uires bu|
|00000d50| 69 6c 74 20 69 6e 20 74 | 6f 6f 6c 62 61 72 20 73 |ilt in t|oolbar s|
|00000d60| 75 70 70 6f 72 74 2e 22 | 20 6d 6f 75 73 65 2d 65 |upport."| mouse-e|
|00000d70| 76 65 6e 74 2d 70 20 65 | 76 65 6e 74 20 65 76 65 |vent-p e|vent eve|
|00000d80| 6e 74 2d 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |nt-buffe|r buffer|
|00000d90| 20 65 76 65 6e 74 2d 77 | 69 6e 64 6f 77 20 77 69 | event-w|indow wi|
|00000da0| 6e 64 6f 77 20 65 76 65 | 6e 74 2d 66 72 61 6d 65 |ndow eve|nt-frame|
|00000db0| 20 66 72 61 6d 65 20 65 | 76 65 6e 74 2d 70 6f 69 | frame e|vent-poi|
|00000dc0| 6e 74 20 70 6f 69 6e 74 | 20 65 76 65 6e 74 2d 67 |nt point| event-g|
|00000dd0| 6c 79 70 68 2d 65 78 74 | 65 6e 74 20 67 6c 79 70 |lyph-ext|ent glyp|
|00000de0| 68 2d 65 78 74 65 6e 74 | 20 65 78 74 65 6e 74 2d |h-extent| extent-|
|00000df0| 70 72 6f 70 65 72 74 79 | 20 66 6c 6f 61 74 69 6e |property| floatin|
|00000e00| 67 2d 74 6f 6f 6c 62 61 | 72 20 65 78 74 65 6e 74 |g-toolba|r extent|
|00000e10| 2d 61 74 20 65 78 74 65 | 6e 74 20 65 78 74 65 6e |-at exte|nt exten|
|00000e20| 74 2d 6c 6f 63 61 6c 2d | 6f 6e 6c 79 20 73 79 6d |t-local-|only sym|
|00000e30| 62 6f 6c 2d 76 61 6c 75 | 65 2d 69 6e 2d 62 75 66 |bol-valu|e-in-buf|
|00000e40| 66 65 72 20 6e 69 6c 20 | 78 20 79 20 30 20 65 63 |fer nil |x y 0 ec|
|00000e50| 68 6f 2d 6b 65 79 73 74 | 72 6f 6b 65 73 20 74 20 |ho-keyst|rokes t |
|00000e60| 61 77 61 69 74 69 6e 67 | 2d 72 65 6c 65 61 73 65 |awaiting|-release|
|00000e70| 20 64 6f 6e 65 20 66 72 | 61 6d 65 2d 70 61 72 61 | done fr|ame-para|
|00000e80| 6d 65 74 65 72 73 20 70 | 61 72 61 6d 73 20 74 6f |meters p|arams to|
|00000e90| 70 20 6c 65 66 74 20 73 | 70 65 63 69 66 69 65 72 |p left s|pecifier|
|00000ea0| 2d 69 6e 73 74 61 6e 63 | 65 20 74 6f 70 2d 74 6f |-instanc|e top-to|
|00000eb0| 6f 6c 62 61 72 20 74 6f | 70 2d 74 6f 6f 6c 62 61 |olbar to|p-toolba|
|00000ec0| 72 2d 68 65 69 67 68 74 | 20 78 74 6f 70 2d 74 6f |r-height| xtop-to|
|00000ed0| 6f 6c 62 61 72 2d 68 65 | 69 67 68 74 20 6c 65 66 |olbar-he|ight lef|
|00000ee0| 74 2d 74 6f 6f 6c 62 61 | 72 20 6c 65 66 74 2d 74 |t-toolba|r left-t|
|00000ef0| 6f 6f 6c 62 61 72 2d 77 | 69 64 74 68 20 78 6c 65 |oolbar-w|idth xle|
|00000f00| 66 74 2d 74 6f 6f 6c 62 | 61 72 2d 77 69 64 74 68 |ft-toolb|ar-width|
|00000f10| 20 6d 65 6e 75 62 61 72 | 20 63 75 72 72 65 6e 74 | menubar| current|
|00000f20| 2d 6d 65 6e 75 62 61 72 | 20 32 32 20 6d 65 6e 75 |-menubar| 22 menu|
|00000f30| 62 61 72 2d 68 65 69 67 | 68 74 20 65 76 65 6e 74 |bar-heig|ht event|
|00000f40| 2d 78 2d 70 69 78 65 6c | 20 65 76 65 6e 74 2d 79 |-x-pixel| event-y|
|00000f50| 2d 70 69 78 65 6c 20 66 | 6c 6f 61 74 69 6e 67 2d |-pixel f|loating-|
|00000f60| 74 6f 6f 6c 62 61 72 2d | 64 69 73 70 6c 61 79 2d |toolbar-|display-|
|00000f70| 74 6f 6f 6c 62 61 72 20 | 6e 65 78 74 2d 63 6f 6d |toolbar |next-com|
|00000f80| 6d 61 6e 64 2d 65 76 65 | 6e 74 20 62 75 74 74 6f |mand-eve|nt butto|
|00000f90| 6e 2d 72 65 6c 65 61 73 | 65 2d 65 76 65 6e 74 2d |n-releas|e-event-|
|00000fa0| 70 20 65 76 65 6e 74 2d | 6f 76 65 72 2d 74 6f 6f |p event-|over-too|
|00000fb0| 6c 62 61 72 2d 70 20 66 | 6c 6f 61 74 69 6e 67 2d |lbar-p f|loating-|
|00000fc0| 74 6f 6f 6c 62 61 72 2d | 66 72 61 6d 65 20 66 6c |toolbar-|frame fl|
|00000fd0| 6f 61 74 69 6e 67 2d 74 | 6f 6f 6c 62 61 72 2d 75 |oating-t|oolbar-u|
|00000fe0| 6e 64 69 73 70 6c 61 79 | 2d 74 6f 6f 6c 62 61 72 |ndisplay|-toolbar|
|00000ff0| 20 73 65 6c 65 63 74 2d | 66 72 61 6d 65 20 77 69 | select-|frame wi|
|00001000| 6e 64 6f 77 2d 66 72 61 | 6d 65 20 73 65 6c 65 63 |ndow-fra|me selec|
|00001010| 74 2d 77 69 6e 64 6f 77 | 20 64 69 73 70 61 74 63 |t-window| dispatc|
|00001020| 68 2d 65 76 65 6e 74 20 | 62 75 74 74 6f 6e 2d 70 |h-event |button-p|
|00001030| 72 65 73 73 2d 65 76 65 | 6e 74 2d 70 20 75 6e 72 |ress-eve|nt-p unr|
|00001040| 65 61 64 2d 63 6f 6d 6d | 61 6e 64 2d 65 76 65 6e |ead-comm|and-even|
|00001050| 74 73 5d 20 35 20 28 23 | 24 20 2e 20 32 32 38 36 |ts] 5 (#|$ . 2286|
|00001060| 29 20 22 5f 65 22 5d 29 | 0a 23 40 37 36 20 4c 69 |) "_e"])|.#@76 Li|
|00001070| 6b 65 20 66 6c 6f 61 74 | 69 6e 67 2d 74 6f 6f 6c |ke float|ing-tool|
|00001080| 62 61 72 2c 20 62 75 74 | 20 69 66 20 6e 6f 20 74 |bar, but| if no t|
|00001090| 6f 6f 6c 62 61 72 20 69 | 73 20 64 69 73 70 6c 61 |oolbar i|s displa|
|000010a0| 79 65 64 0a 72 75 6e 20 | 70 6f 70 75 70 2d 6d 6f |yed.run |popup-mo|
|000010b0| 64 65 2d 6d 65 6e 75 2e | 1f 0a 28 64 65 66 61 6c |de-menu.|..(defal|
|000010c0| 69 61 73 20 27 66 6c 6f | 61 74 69 6e 67 2d 74 6f |ias 'flo|ating-to|
|000010d0| 6f 6c 62 61 72 2d 6f 72 | 2d 70 6f 70 75 70 2d 6d |olbar-or|-popup-m|
|000010e0| 6f 64 65 2d 6d 65 6e 75 | 20 23 5b 28 65 76 65 6e |ode-menu| #[(even|
|000010f0| 74 29 20 22 c0 09 21 ae | 82 c2 20 87 22 20 5b 66 |t) "..!.|.. ." [f|
|00001100| 6c 6f 61 74 69 6e 67 2d | 74 6f 6f 6c 62 61 72 20 |loating-|toolbar |
|00001110| 65 76 65 6e 74 20 70 6f | 70 75 70 2d 6d 6f 64 65 |event po|pup-mode|
|00001120| 2d 6d 65 6e 75 5d 20 32 | 20 28 23 24 20 2e 20 34 |-menu] 2| (#$ . 4|
|00001130| 32 30 36 29 20 22 5f 65 | 22 5d 29 0a 23 40 38 38 |206) "_e|"]).#@88|
|00001140| 20 4c 69 6b 65 20 66 6c | 6f 61 74 69 6e 67 2d 74 | Like fl|oating-t|
|00001150| 6f 6f 6c 62 61 72 2d 6f | 72 2d 70 6f 70 75 70 2d |oolbar-o|r-popup-|
|00001160| 6d 6f 64 65 2d 6d 65 6e | 75 2c 20 62 75 74 20 73 |mode-men|u, but s|
|00001170| 65 61 72 63 68 20 6f 6e | 6c 79 20 66 6f 72 20 61 |earch on|ly for a|
|00001180| 6e 0a 65 78 74 65 6e 74 | 20 6c 6f 63 61 6c 20 74 |n.extent| local t|
|00001190| 6f 6f 6c 62 61 72 2e 1f | 0a 28 64 65 66 61 6c 69 |oolbar..|.(defali|
|000011a0| 61 73 20 27 66 6c 6f 61 | 74 69 6e 67 2d 74 6f 6f |as 'floa|ting-too|
|000011b0| 6c 62 61 72 2d 66 72 6f | 6d 2d 65 78 74 65 6e 74 |lbar-fro|m-extent|
|000011c0| 2d 6f 72 2d 70 6f 70 75 | 70 2d 6d 6f 64 65 2d 6d |-or-popu|p-mode-m|
|000011d0| 65 6e 75 20 23 5b 28 65 | 76 65 6e 74 29 20 22 c0 |enu #[(e|vent) ".|
|000011e0| 09 c2 5c 22 ae 82 c3 20 | 87 22 20 5b 66 6c 6f 61 |..\"... |." [floa|
|000011f0| 74 69 6e 67 2d 74 6f 6f | 6c 62 61 72 20 65 76 65 |ting-too|lbar eve|
|00001200| 6e 74 20 74 20 70 6f 70 | 75 70 2d 6d 6f 64 65 2d |nt t pop|up-mode-|
|00001210| 6d 65 6e 75 5d 20 33 20 | 28 23 24 20 2e 20 34 34 |menu] 3 |(#$ . 44|
|00001220| 31 37 29 20 22 5f 65 22 | 5d 29 0a 28 64 65 66 61 |17) "_e"|]).(defa|
|00001230| 6c 69 61 73 20 27 66 6c | 6f 61 74 69 6e 67 2d 74 |lias 'fl|oating-t|
|00001240| 6f 6f 6c 62 61 72 2d 64 | 69 73 70 6c 61 79 2d 74 |oolbar-d|isplay-t|
|00001250| 6f 6f 6c 62 61 72 20 23 | 5b 28 74 6f 6f 6c 62 61 |oolbar #|[(toolba|
|00001260| 72 20 78 20 79 29 20 22 | c0 09 21 ac 85 c2 0b 0c |r x y) "|..!.....|
|00001270| 5c 22 11 c5 0e 06 c7 c8 | 09 21 21 0e 09 42 5c 22 |\"......|.!!..B\"|
|00001280| 88 ca 0e 09 21 88 cb 0b | cc 09 21 cd a5 5a 5d 13 |....!...|..!..Z].|
|00001290| ce 0b 0c 5c 22 88 cf 20 | 87 22 20 5b 66 72 61 6d |...\".. |." [fram|
|000012a0| 65 2d 6c 69 76 65 2d 70 | 20 66 6c 6f 61 74 69 6e |e-live-p| floatin|
|000012b0| 67 2d 74 6f 6f 6c 62 61 | 72 2d 66 72 61 6d 65 20 |g-toolba|r-frame |
|000012c0| 66 6c 6f 61 74 69 6e 67 | 2d 74 6f 6f 6c 62 61 72 |floating|-toolbar|
|000012d0| 2d 6d 61 6b 65 2d 74 6f | 6f 6c 62 61 72 2d 66 72 |-make-to|olbar-fr|
|000012e0| 61 6d 65 20 78 20 79 20 | 73 65 74 2d 73 70 65 63 |ame x y |set-spec|
|000012f0| 69 66 69 65 72 20 74 6f | 70 2d 74 6f 6f 6c 62 61 |ifier to|p-toolba|
|00001300| 72 20 77 69 6e 64 6f 77 | 2d 62 75 66 66 65 72 20 |r window|-buffer |
|00001310| 66 72 61 6d 65 2d 73 65 | 6c 65 63 74 65 64 2d 77 |frame-se|lected-w|
|00001320| 69 6e 64 6f 77 20 74 6f | 6f 6c 62 61 72 20 66 6c |indow to|olbar fl|
|00001330| 6f 61 74 69 6e 67 2d 74 | 6f 6f 6c 62 61 72 2d 72 |oating-t|oolbar-r|
|00001340| 65 73 69 7a 65 2d 74 6f | 6f 6c 62 61 72 2d 66 72 |esize-to|olbar-fr|
|00001350| 61 6d 65 20 30 20 66 72 | 61 6d 65 2d 70 69 78 65 |ame 0 fr|ame-pixe|
|00001360| 6c 2d 77 69 64 74 68 20 | 32 20 66 6c 6f 61 74 69 |l-width |2 floati|
|00001370| 6e 67 2d 74 6f 6f 6c 62 | 61 72 2d 73 65 74 2d 74 |ng-toolb|ar-set-t|
|00001380| 6f 6f 6c 62 61 72 2d 66 | 72 61 6d 65 2d 70 6f 73 |oolbar-f|rame-pos|
|00001390| 69 74 69 6f 6e 20 66 6c | 6f 61 74 69 6e 67 2d 74 |ition fl|oating-t|
|000013a0| 6f 6f 6c 62 61 72 2d 65 | 78 70 6f 73 65 2d 74 6f |oolbar-e|xpose-to|
|000013b0| 6f 6c 62 61 72 2d 66 72 | 61 6d 65 5d 20 35 5d 29 |olbar-fr|ame] 5])|
|000013c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 6c 6f 61 |.(defali|as 'floa|
|000013d0| 74 69 6e 67 2d 74 6f 6f | 6c 62 61 72 2d 75 6e 64 |ting-too|lbar-und|
|000013e0| 69 73 70 6c 61 79 2d 74 | 6f 6f 6c 62 61 72 20 23 |isplay-t|oolbar #|
|000013f0| 5b 6e 69 6c 20 22 c0 20 | 87 22 20 5b 66 6c 6f 61 |[nil ". |." [floa|
|00001400| 74 69 6e 67 2d 74 6f 6f | 6c 62 61 72 2d 68 69 64 |ting-too|lbar-hid|
|00001410| 65 2d 74 6f 6f 6c 62 61 | 72 2d 66 72 61 6d 65 5d |e-toolba|r-frame]|
|00001420| 20 31 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 1]).(de|falias '|
|00001430| 66 6c 6f 61 74 69 6e 67 | 2d 74 6f 6f 6c 62 61 72 |floating|-toolbar|
|00001440| 2d 68 69 64 65 2d 74 6f | 6f 6c 62 61 72 2d 66 72 |-hide-to|olbar-fr|
|00001450| 61 6d 65 20 23 5b 6e 69 | 6c 20 22 c0 20 ad 91 c1 |ame #[ni|l ". ...|
|00001460| 5c 6e 21 88 0b ab 87 0c | ab 84 c5 c6 21 88 c7 89 |\n!.....|....!...|
|00001470| 14 87 22 20 5b 66 6c 6f | 61 74 69 6e 67 2d 74 6f |.." [flo|ating-to|
|00001480| 6f 6c 62 61 72 2d 64 69 | 73 70 6c 61 79 65 64 20 |olbar-di|splayed |
|00001490| 6d 61 6b 65 2d 66 72 61 | 6d 65 2d 69 6e 76 69 73 |make-fra|me-invis|
|000014a0| 69 62 6c 65 20 66 6c 6f | 61 74 69 6e 67 2d 74 6f |ible flo|ating-to|
|000014b0| 6f 6c 62 61 72 2d 66 72 | 61 6d 65 20 66 6c 6f 61 |olbar-fr|ame floa|
|000014c0| 74 69 6e 67 2d 74 6f 6f | 6c 62 61 72 2d 75 73 65 |ting-too|lbar-use|
|000014d0| 2d 73 6f 75 6e 64 20 66 | 6c 6f 61 74 69 6e 67 2d |-sound f|loating-|
|000014e0| 74 6f 6f 6c 62 61 72 2d | 64 69 73 70 6c 61 79 2d |toolbar-|display-|
|000014f0| 70 65 6e 64 69 6e 67 20 | 70 6c 61 79 2d 73 6f 75 |pending |play-sou|
|00001500| 6e 64 20 66 6c 6f 61 74 | 69 6e 67 2d 74 6f 6f 6c |nd float|ing-tool|
|00001510| 62 61 72 2d 64 69 73 61 | 70 70 65 61 72 73 20 6e |bar-disa|ppears n|
|00001520| 69 6c 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |il] 2]).|(defalia|
|00001530| 73 20 27 66 6c 6f 61 74 | 69 6e 67 2d 74 6f 6f 6c |s 'float|ing-tool|
|00001540| 62 61 72 2d 65 78 70 6f | 73 65 2d 74 6f 6f 6c 62 |bar-expo|se-toolb|
|00001550| 61 72 2d 66 72 61 6d 65 | 20 23 5b 6e 69 6c 20 22 |ar-frame| #[nil "|
|00001560| c0 20 3f ad 91 c1 5c 6e | 21 88 0b ab 87 0c ac 84 |. ?...\n|!.......|
|00001570| c5 c6 21 88 c7 89 14 87 | 22 20 5b 66 6c 6f 61 74 |..!.....|" [float|
|00001580| 69 6e 67 2d 74 6f 6f 6c | 62 61 72 2d 64 69 73 70 |ing-tool|bar-disp|
|00001590| 6c 61 79 65 64 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |layed ma|ke-frame|
|000015a0| 2d 76 69 73 69 62 6c 65 | 20 66 6c 6f 61 74 69 6e |-visible| floatin|
|000015b0| 67 2d 74 6f 6f 6c 62 61 | 72 2d 66 72 61 6d 65 20 |g-toolba|r-frame |
|000015c0| 66 6c 6f 61 74 69 6e 67 | 2d 74 6f 6f 6c 62 61 72 |floating|-toolbar|
|000015d0| 2d 75 73 65 2d 73 6f 75 | 6e 64 20 66 6c 6f 61 74 |-use-sou|nd float|
|000015e0| 69 6e 67 2d 74 6f 6f 6c | 62 61 72 2d 64 69 73 70 |ing-tool|bar-disp|
|000015f0| 6c 61 79 2d 70 65 6e 64 | 69 6e 67 20 70 6c 61 79 |lay-pend|ing play|
|00001600| 2d 73 6f 75 6e 64 20 66 | 6c 6f 61 74 69 6e 67 2d |-sound f|loating-|
|00001610| 74 6f 6f 6c 62 61 72 2d | 61 70 70 65 61 72 73 20 |toolbar-|appears |
|00001620| 74 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t] 2]).(|defalias|
|00001630| 20 27 66 6c 6f 61 74 69 | 6e 67 2d 74 6f 6f 6c 62 | 'floati|ng-toolb|
|00001640| 61 72 2d 72 65 73 69 7a | 65 2d 74 6f 6f 6c 62 61 |ar-resiz|e-toolba|
|00001650| 72 2d 66 72 61 6d 65 20 | 23 5b 28 74 6f 6f 6c 62 |r-frame |#[(toolb|
|00001660| 61 72 29 20 22 c0 c1 c2 | c3 20 b7 41 ae 81 c0 c4 |ar) "...|. .A....|
|00001670| 5f c5 0e 06 21 c1 89 89 | 1e 07 1e 08 1e 09 1e 5c |_...!...|.......\|
|00001680| 6e 1e 0b 1e 0c 1e 0d 0e | 0e 83 c4 00 0e 0e 40 89 |n.......|......@.|
|00001690| 16 09 ac 89 0e 0d cf 5c | 5c 16 0d 82 bb 00 0e 09 |.......\|\.......|
|000016a0| c0 9c d0 61 ab 8b 0e 0d | 0e 09 d1 9c 5c 5c 16 0d |...a....|....\\..|
|000016b0| aa f1 0e 09 c0 9c d2 61 | ab 9d 0e 09 47 d3 55 ab |.......a|....G.U.|
|000016c0| 96 0e 09 c4 9c d0 61 ab | 8e 0e 0d 0e 0b 5c 5c 0e |......a.|.....\\.|
|000016d0| 09 d4 9c 5c 5c 16 0d aa | cc 0e 09 c0 9c 89 16 07 |...\\...|........|
|000016e0| 39 ab 85 0e 07 4a 16 07 | 0e 5c 6e ab 9b 0e 07 47 |9....J..|.\n....G|
|000016f0| d4 56 ab 94 d4 0e 07 38 | ae 8a d3 0e 07 38 ae 84 |.V.....8|.....8..|
|00001700| d5 0e 07 38 16 08 aa 85 | 0e 07 40 16 08 0e 0d 0e |...8....|..@.....|
|00001710| 0b 5c 5c d6 0e 08 21 5c | 5c 16 0d 0e 0c ac 89 0e |.\\...!\|\.......|
|00001720| 0b d7 0e 08 21 5c 5c 16 | 0c 0e 0e 41 89 16 0e 84 |....!\\.|...A....|
|00001730| 26 00 d8 0e 19 0e 0c 0e | 1a 23 88 db 0e 1a 0e 0d |&.......|.#......|
|00001740| dc dd de 21 0e 1a 5c 22 | a5 54 5c 22 2e 07 87 22 |...!..\"|.T\"..."|
|00001750| 20 5b 30 20 6e 69 6c 20 | 74 6f 6f 6c 62 61 72 2d | [0 nil |toolbar-|
|00001760| 73 68 61 64 6f 77 2d 74 | 68 69 63 6b 6e 65 73 73 |shadow-t|hickness|
|00001770| 20 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 | frame-p|arameter|
|00001780| 73 20 32 20 73 70 65 63 | 69 66 69 65 72 2d 69 6e |s 2 spec|ifier-in|
|00001790| 73 74 61 6e 63 65 20 74 | 6f 6f 6c 62 61 72 2d 62 |stance t|oolbar-b|
|000017a0| 75 74 74 6f 6e 73 2d 63 | 61 70 74 69 6f 6e 65 64 |uttons-c|aptioned|
|000017b0| 2d 70 20 67 6c 79 70 68 | 2d 6c 69 73 74 20 67 6c |-p glyph|-list gl|
|000017c0| 79 70 68 20 62 75 74 74 | 6f 6e 20 63 61 70 74 69 |yph butt|on capti|
|000017d0| 6f 6e 65 64 20 62 65 76 | 65 6c 20 68 65 69 67 68 |oned bev|el heigh|
|000017e0| 74 20 77 69 64 74 68 20 | 74 6f 6f 6c 62 61 72 20 |t width |toolbar |
|000017f0| 38 20 3a 73 69 7a 65 20 | 31 20 3a 73 74 79 6c 65 |8 :size |1 :style|
|00001800| 20 34 20 33 20 35 20 67 | 6c 79 70 68 2d 77 69 64 | 4 3 5 g|lyph-wid|
|00001810| 74 68 20 67 6c 79 70 68 | 2d 68 65 69 67 68 74 20 |th glyph|-height |
|00001820| 73 65 74 2d 73 70 65 63 | 69 66 69 65 72 20 74 6f |set-spec|ifier to|
|00001830| 70 2d 74 6f 6f 6c 62 61 | 72 2d 68 65 69 67 68 74 |p-toolba|r-height|
|00001840| 20 66 6c 6f 61 74 69 6e | 67 2d 74 6f 6f 6c 62 61 | floatin|g-toolba|
|00001850| 72 2d 66 72 61 6d 65 20 | 73 65 74 2d 66 72 61 6d |r-frame |set-fram|
|00001860| 65 2d 77 69 64 74 68 20 | 66 6f 6e 74 2d 77 69 64 |e-width |font-wid|
|00001870| 74 68 20 66 61 63 65 2d | 66 6f 6e 74 20 64 65 66 |th face-|font def|
|00001880| 61 75 6c 74 5d 20 38 5d | 29 0a 28 64 65 66 61 6c |ault] 8]|).(defal|
|00001890| 69 61 73 20 27 66 6c 6f | 61 74 69 6e 67 2d 74 6f |ias 'flo|ating-to|
|000018a0| 6f 6c 62 61 72 2d 73 65 | 74 2d 74 6f 6f 6c 62 61 |olbar-se|t-toolba|
|000018b0| 72 2d 66 72 61 6d 65 2d | 70 6f 73 69 74 69 6f 6e |r-frame-|position|
|000018c0| 20 23 5b 28 78 20 79 29 | 20 22 c0 09 5c 6e 0b 23 | #[(x y)| "..\n.#|
|000018d0| 87 22 20 5b 73 65 74 2d | 66 72 61 6d 65 2d 70 6f |." [set-|frame-po|
|000018e0| 73 69 74 69 6f 6e 20 66 | 6c 6f 61 74 69 6e 67 2d |sition f|loating-|
|000018f0| 74 6f 6f 6c 62 61 72 2d | 66 72 61 6d 65 20 78 20 |toolbar-|frame x |
|00001900| 79 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |y] 4]).(|defalias|
|00001910| 20 27 66 6c 6f 61 74 69 | 6e 67 2d 74 6f 6f 6c 62 | 'floati|ng-toolb|
|00001920| 61 72 2d 6d 61 6b 65 2d | 6a 75 6e 6b 2d 66 72 61 |ar-make-|junk-fra|
|00001930| 6d 65 20 23 5b 6e 69 6c | 20 22 c0 89 19 1a 8a c3 |me #[nil| "......|
|00001940| c4 21 71 88 c5 c6 21 c7 | c8 c9 5c 22 88 2b 87 22 |.!q...!.|..\".+."|
|00001950| 20 5b 31 20 77 69 6e 64 | 6f 77 2d 6d 69 6e 2d 77 | [1 wind|ow-min-w|
|00001960| 69 64 74 68 20 77 69 6e | 64 6f 77 2d 6d 69 6e 2d |idth win|dow-min-|
|00001970| 68 65 69 67 68 74 20 67 | 65 6e 65 72 61 74 65 2d |height g|enerate-|
|00001980| 6e 65 77 2d 62 75 66 66 | 65 72 20 22 2a 6a 75 6e |new-buff|er "*jun|
|00001990| 6b 2d 66 72 61 6d 65 2d | 62 75 66 66 65 72 2a 22 |k-frame-|buffer*"|
|000019a0| 20 6d 61 6b 65 2d 66 72 | 61 6d 65 20 28 6d 69 6e | make-fr|ame (min|
|000019b0| 69 62 75 66 66 65 72 20 | 74 20 69 6e 69 74 69 61 |ibuffer |t initia|
|000019c0| 6c 6c 79 2d 75 6e 6d 61 | 70 70 65 64 20 74 20 77 |lly-unma|pped t w|
|000019d0| 69 64 74 68 20 31 20 68 | 65 69 67 68 74 20 31 29 |idth 1 h|eight 1)|
|000019e0| 20 72 65 6e 61 6d 65 2d | 62 75 66 66 65 72 20 22 | rename-|buffer "|
|000019f0| 20 2a 6a 75 6e 6b 2d 66 | 72 61 6d 65 2d 62 75 66 | *junk-f|rame-buf|
|00001a00| 66 65 72 2a 22 20 74 5d | 20 34 5d 29 0a 28 64 65 |fer*" t]| 4]).(de|
|00001a10| 66 61 6c 69 61 73 20 27 | 66 6c 6f 61 74 69 6e 67 |falias '|floating|
|00001a20| 2d 74 6f 6f 6c 62 61 72 | 2d 6d 61 6b 65 2d 74 6f |-toolbar|-make-to|
|00001a30| 6f 6c 62 61 72 2d 66 72 | 61 6d 65 20 23 5b 28 78 |olbar-fr|ame #[(x|
|00001a40| 20 79 29 20 22 8a c0 89 | c1 c2 c3 c4 c5 c6 20 c7 | y) "...|...... .|
|00001a50| 26 06 ae 81 c8 c9 ca 21 | cb 1e 0c 1e 0d 1e 0e 1e |&......!|........|
|00001a60| 0f 1e 10 0e 0d 71 88 d1 | cb 21 88 0e 12 ab 8a d3 |.....q..|.!......|
|00001a70| d4 20 21 71 88 d1 cb 21 | 88 d5 d6 d7 0e 18 ae 81 |. !q...!|........|
|00001a80| d9 42 da db 0e 0e 42 dc | 0e 1d 42 de 0e 1f 42 e0 |.B....B.|..B...B.|
|00001a90| e1 20 42 0e 12 ab 83 e2 | aa 81 e3 e4 e5 af 5c 6e |. B.....|......\n|
|00001aa0| 21 16 0c e6 0e 27 0e 0c | cb 42 5c 22 88 0e 12 ab |!....'..|.B\"....|
|00001ab0| 8a e8 e9 0e 12 0e 0c 23 | 88 aa 87 e8 e9 ea 0e 0c |.......#|........|
|00001ac0| 23 88 eb e9 0e 0e 0e 0c | 23 88 eb ec 0e 0e 0e 0c |#.......|#.......|
|00001ad0| 23 88 e6 0e 2d 0e 0c c0 | 42 5c 22 88 e6 0e 2e 0e |#...-...|B\".....|
|00001ae0| 0c cb 42 5c 22 88 ef e9 | f0 0e 0c 23 88 f1 f2 0e |..B\"...|...#....|
|00001af0| 0c 21 0e 0d 5c 22 88 e6 | 0e 33 0e 0c f4 42 5c 22 |.!..\"..|.3...B\"|
|00001b00| 88 e6 0e 35 0e 0c f4 42 | 5c 22 88 e6 0e 36 0e 0c |...5...B|\"...6..|
|00001b10| f4 42 5c 22 88 e6 0e 37 | 0e 0c f4 42 5c 22 88 e6 |.B\"...7|...B\"..|
|00001b20| 0e 38 0e 0c cb 42 5c 22 | 88 e6 0e 39 0e 0c cb 42 |.8...B\"|...9...B|
|00001b30| 5c 22 88 e6 0e 3a 0e 0c | cb 42 5c 22 88 e6 0e 3b |\"...:..|.B\"...;|
|00001b40| 0e 0c cb 42 5c 22 88 e6 | 0e 3c 0e 0c f4 42 5c 22 |...B\"..|.<...B\"|
|00001b50| 88 e6 0e 3d 0e 0c f4 42 | 5c 22 88 0e 0c 2e 06 87 |...=...B|\"......|
|00001b60| 22 20 5b 31 20 78 2d 67 | 65 74 2d 72 65 73 6f 75 |" [1 x-g|et-resou|
|00001b70| 72 63 65 20 22 62 61 63 | 6b 67 72 6f 75 6e 64 54 |rce "bac|kgroundT|
|00001b80| 6f 6f 6c 42 61 72 43 6f | 6c 6f 72 22 20 22 42 61 |oolBarCo|lor" "Ba|
|00001b90| 63 6b 67 72 6f 75 6e 64 | 54 6f 6f 6c 42 61 72 43 |ckground|ToolBarC|
|00001ba0| 6f 6c 6f 72 22 20 73 74 | 72 69 6e 67 20 67 6c 6f |olor" st|ring glo|
|00001bb0| 62 61 6c 20 73 65 6c 65 | 63 74 65 64 2d 64 65 76 |bal sele|cted-dev|
|00001bc0| 69 63 65 20 74 20 22 67 | 72 65 79 37 35 22 20 67 |ice t "g|rey75" g|
|00001bd0| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00001be0| 20 22 20 2a 66 6c 6f 61 | 74 69 6e 67 2d 74 6f 6f | " *floa|ting-too|
|00001bf0| 6c 62 61 72 2d 62 75 66 | 66 65 72 2a 22 20 6e 69 |lbar-buf|fer*" ni|
|00001c00| 6c 20 66 72 61 6d 65 20 | 62 75 66 66 65 72 20 62 |l frame |buffer b|
|00001c10| 67 2d 63 6f 6c 6f 72 20 | 77 69 6e 64 6f 77 2d 6d |g-color |window-m|
|00001c20| 69 6e 2d 77 69 64 74 68 | 20 77 69 6e 64 6f 77 2d |in-width| window-|
|00001c30| 6d 69 6e 2d 68 65 69 67 | 68 74 20 73 65 74 2d 62 |min-heig|ht set-b|
|00001c40| 75 66 66 65 72 2d 6d 65 | 6e 75 62 61 72 20 66 6c |uffer-me|nubar fl|
|00001c50| 6f 61 74 69 6e 67 2d 74 | 6f 6f 6c 62 61 72 2d 68 |oating-t|oolbar-h|
|00001c60| 65 6c 70 2d 66 6f 6e 74 | 20 77 69 6e 64 6f 77 2d |elp-font| window-|
|00001c70| 62 75 66 66 65 72 20 6d | 69 6e 69 62 75 66 66 65 |buffer m|inibuffe|
|00001c80| 72 2d 77 69 6e 64 6f 77 | 20 6d 61 6b 65 2d 66 72 |r-window| make-fr|
|00001c90| 61 6d 65 20 28 69 6e 69 | 74 69 61 6c 6c 79 2d 75 |ame (ini|tially-u|
|00001ca0| 6e 6d 61 70 70 65 64 20 | 2e 20 74 29 20 6e 61 6d |nmapped |. t) nam|
|00001cb0| 65 20 66 6c 6f 61 74 69 | 6e 67 2d 74 6f 6f 6c 62 |e floati|ng-toolb|
|00001cc0| 61 72 2d 66 72 61 6d 65 | 2d 6e 61 6d 65 20 22 78 |ar-frame|-name "x|
|00001cd0| 63 6c 6f 63 6b 22 20 28 | 62 6f 72 64 65 72 2d 77 |clock" (|border-w|
|00001ce0| 69 64 74 68 20 2e 20 32 | 29 20 62 6f 72 64 65 72 |idth . 2|) border|
|00001cf0| 2d 63 6f 6c 6f 72 20 74 | 6f 70 20 79 20 6c 65 66 |-color t|op y lef|
|00001d00| 74 20 78 20 70 6f 70 75 | 70 20 66 6c 6f 61 74 69 |t x popu|p floati|
|00001d10| 6e 67 2d 74 6f 6f 6c 62 | 61 72 2d 6d 61 6b 65 2d |ng-toolb|ar-make-|
|00001d20| 6a 75 6e 6b 2d 66 72 61 | 6d 65 20 28 6d 69 6e 69 |junk-fra|me (mini|
|00001d30| 62 75 66 66 65 72 20 2e | 20 6f 6e 6c 79 29 20 28 |buffer .| only) (|
|00001d40| 6d 69 6e 69 62 75 66 66 | 65 72 29 20 28 77 69 64 |minibuff|er) (wid|
|00001d50| 74 68 20 2e 20 33 29 20 | 28 68 65 69 67 68 74 20 |th . 3) |(height |
|00001d60| 2e 20 31 29 20 73 65 74 | 2d 73 70 65 63 69 66 69 |. 1) set|-specifi|
|00001d70| 65 72 20 74 65 78 74 2d | 63 75 72 73 6f 72 2d 76 |er text-|cursor-v|
|00001d80| 69 73 69 62 6c 65 2d 70 | 20 73 65 74 2d 66 61 63 |isible-p| set-fac|
|00001d90| 65 2d 66 6f 6e 74 20 64 | 65 66 61 75 6c 74 20 22 |e-font d|efault "|
|00001da0| 6e 69 6c 32 22 20 73 65 | 74 2d 66 61 63 65 2d 62 |nil2" se|t-face-b|
|00001db0| 61 63 6b 67 72 6f 75 6e | 64 20 6d 6f 64 65 6c 69 |ackgroun|d modeli|
|00001dc0| 6e 65 20 6d 6f 64 65 6c | 69 6e 65 2d 73 68 61 64 |ne model|ine-shad|
|00001dd0| 6f 77 2d 74 68 69 63 6b | 6e 65 73 73 20 68 61 73 |ow-thick|ness has|
|00001de0| 2d 6d 6f 64 65 6c 69 6e | 65 2d 70 20 73 65 74 2d |-modelin|e-p set-|
|00001df0| 66 61 63 65 2d 62 61 63 | 6b 67 72 6f 75 6e 64 2d |face-bac|kground-|
|00001e00| 70 69 78 6d 61 70 20 22 | 22 20 73 65 74 2d 77 69 |pixmap "|" set-wi|
|00001e10| 6e 64 6f 77 2d 62 75 66 | 66 65 72 20 66 72 61 6d |ndow-buf|fer fram|
|00001e20| 65 2d 73 65 6c 65 63 74 | 65 64 2d 77 69 6e 64 6f |e-select|ed-windo|
|00001e30| 77 20 74 6f 70 2d 74 6f | 6f 6c 62 61 72 2d 68 65 |w top-to|olbar-he|
|00001e40| 69 67 68 74 20 30 20 6c | 65 66 74 2d 74 6f 6f 6c |ight 0 l|eft-tool|
|00001e50| 62 61 72 2d 77 69 64 74 | 68 20 72 69 67 68 74 2d |bar-widt|h right-|
|00001e60| 74 6f 6f 6c 62 61 72 2d | 77 69 64 74 68 20 62 6f |toolbar-|width bo|
|00001e70| 74 74 6f 6d 2d 74 6f 6f | 6c 62 61 72 2d 68 65 69 |ttom-too|lbar-hei|
|00001e80| 67 68 74 20 74 6f 70 2d | 74 6f 6f 6c 62 61 72 20 |ght top-|toolbar |
|00001e90| 6c 65 66 74 2d 74 6f 6f | 6c 62 61 72 20 72 69 67 |left-too|lbar rig|
|00001ea0| 68 74 2d 74 6f 6f 6c 62 | 61 72 20 62 6f 74 74 6f |ht-toolb|ar botto|
|00001eb0| 6d 2d 74 6f 6f 6c 62 61 | 72 20 73 63 72 6f 6c 6c |m-toolba|r scroll|
|00001ec0| 62 61 72 2d 77 69 64 74 | 68 20 73 63 72 6f 6c 6c |bar-widt|h scroll|
|00001ed0| 62 61 72 2d 68 65 69 67 | 68 74 5d 20 31 31 5d 29 |bar-heig|ht] 11])|
|00001ee0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00001ef0| ab 8e 5c 6e ac 8b c3 20 | c4 61 ab 85 c5 c6 89 5c |..\n... |.a.....\|
|00001f00| 22 12 c0 87 22 20 5b 66 | 65 61 74 75 72 65 70 20 |"..." [f|eaturep |
|00001f10| 74 6f 6f 6c 62 61 72 20 | 66 6c 6f 61 74 69 6e 67 |toolbar |floating|
|00001f20| 2d 74 6f 6f 6c 62 61 72 | 2d 66 72 61 6d 65 20 64 |-toolbar|-frame d|
|00001f30| 65 76 69 63 65 2d 74 79 | 70 65 20 78 20 66 6c 6f |evice-ty|pe x flo|
|00001f40| 61 74 69 6e 67 2d 74 6f | 6f 6c 62 61 72 2d 6d 61 |ating-to|olbar-ma|
|00001f50| 6b 65 2d 74 6f 6f 6c 62 | 61 72 2d 66 72 61 6d 65 |ke-toolb|ar-frame|
|00001f60| 20 30 5d 20 33 29 0a    |                         | 0] 3). |        |
+--------+-------------------------+-------------------------+--------+--------+